home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Sapphire Collection / Software Vault (Sapphire Collection) (Digital Impact).ISO / cdr08 / att321al.zip / CAL.FRM < prev    next >
Text File  |  1994-08-08  |  51KB  |  1,606 lines
  1. VERSION 2.00
  2. Begin Form Calendar 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Calendar"
  7.    ClientHeight    =   3795
  8.    ClientLeft      =   1320
  9.    ClientTop       =   1425
  10.    ClientWidth     =   3255
  11.    ClipControls    =   0   'False
  12.    ControlBox      =   0   'False
  13.    Height          =   4230
  14.    HelpContextID   =   40002
  15.    Icon            =   CAL.FRX:0000
  16.    Left            =   1245
  17.    LinkMode        =   1  'Source
  18.    LinkTopic       =   "Form2"
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   253
  22.    ScaleMode       =   3  'Pixel
  23.    ScaleWidth      =   217
  24.    Top             =   1065
  25.    Width           =   3405
  26.    Begin VScrollBar YearScroll 
  27.       Height          =   1740
  28.       LargeChange     =   10
  29.       Left            =   2775
  30.       Max             =   2078
  31.       Min             =   1753
  32.       TabIndex        =   24
  33.       Top             =   570
  34.       Value           =   1753
  35.       Width           =   240
  36.    End
  37.    Begin HScrollBar MonthScroll 
  38.       Height          =   240
  39.       Left            =   225
  40.       Max             =   13
  41.       TabIndex        =   25
  42.       Top             =   2280
  43.       Width           =   2565
  44.    End
  45.    Begin PictureBox Picture1 
  46.       AutoSize        =   -1  'True
  47.       BorderStyle     =   0  'None
  48.       Height          =   135
  49.       Left            =   3015
  50.       Picture         =   CAL.FRX:0302
  51.       ScaleHeight     =   135
  52.       ScaleWidth      =   165
  53.       TabIndex        =   1
  54.       TabStop         =   0   'False
  55.       Tag             =   "Stuck"
  56.       Top             =   90
  57.       Width           =   165
  58.    End
  59.    Begin CommandButton Command2 
  60.       Caption         =   "OK"
  61.       Default         =   -1  'True
  62.       Height          =   345
  63.       Index           =   0
  64.       Left            =   735
  65.       TabIndex        =   0
  66.       Top             =   3300
  67.       Width           =   855
  68.    End
  69.    Begin CommandButton Command1 
  70.       Caption         =   "Today"
  71.       Height          =   345
  72.       Left            =   1620
  73.       TabIndex        =   16
  74.       Top             =   3300
  75.       Width           =   840
  76.    End
  77.    Begin SSCommand Command3 
  78.       BevelWidth      =   1
  79.       Caption         =   "Dec"
  80.       FontBold        =   0   'False
  81.       FontItalic      =   0   'False
  82.       FontName        =   "MS Sans Serif"
  83.       FontSize        =   8.25
  84.       FontStrikethru  =   0   'False
  85.       FontUnderline   =   0   'False
  86.       Height          =   270
  87.       Index           =   11
  88.       Left            =   2550
  89.       RoundedCorners  =   0   'False
  90.       TabIndex        =   15
  91.       Top             =   2895
  92.       Width           =   480
  93.    End
  94.    Begin SSCommand Command3 
  95.       BevelWidth      =   1
  96.       Caption         =   "Nov"
  97.       FontBold        =   0   'False
  98.       FontItalic      =   0   'False
  99.       FontName        =   "MS Sans Serif"
  100.       FontSize        =   8.25
  101.       FontStrikethru  =   0   'False
  102.       FontUnderline   =   0   'False
  103.       Height          =   270
  104.       Index           =   10
  105.       Left            =   2085
  106.       RoundedCorners  =   0   'False
  107.       TabIndex        =   14
  108.       Top             =   2895
  109.       Width           =   480
  110.    End
  111.    Begin SSCommand Command3 
  112.       BevelWidth      =   1
  113.       Caption         =   "Oct"
  114.       FontBold        =   0   'False
  115.       FontItalic      =   0   'False
  116.       FontName        =   "MS Sans Serif"
  117.       FontSize        =   8.25
  118.       FontStrikethru  =   0   'False
  119.       FontUnderline   =   0   'False
  120.       Height          =   270
  121.       Index           =   9
  122.       Left            =   1620
  123.       RoundedCorners  =   0   'False
  124.       TabIndex        =   13
  125.       Top             =   2895
  126.       Width           =   480
  127.    End
  128.    Begin SSCommand Command3 
  129.       BevelWidth      =   1
  130.       Caption         =   "Sep"
  131.       FontBold        =   0   'False
  132.       FontItalic      =   0   'False
  133.       FontName        =   "MS Sans Serif"
  134.       FontSize        =   8.25
  135.       FontStrikethru  =   0   'False
  136.       FontUnderline   =   0   'False
  137.       Height          =   270
  138.       Index           =   8
  139.       Left            =   1155
  140.       RoundedCorners  =   0   'False
  141.       TabIndex        =   12
  142.       Top             =   2895
  143.       Width           =   480
  144.    End
  145.    Begin SSCommand Command3 
  146.       BevelWidth      =   1
  147.       Caption         =   "Aug"
  148.       FontBold        =   0   'False
  149.       FontItalic      =   0   'False
  150.       FontName        =   "MS Sans Serif"
  151.       FontSize        =   8.25
  152.       FontStrikethru  =   0   'False
  153.       FontUnderline   =   0   'False
  154.       Height          =   270
  155.       Index           =   7
  156.       Left            =   690
  157.       RoundedCorners  =   0   'False
  158.       TabIndex        =   11
  159.       Top             =   2895
  160.       Width           =   480
  161.    End
  162.    Begin SSCommand Command3 
  163.       BevelWidth      =   1
  164.       Caption         =   "Jul"
  165.       FontBold        =   0   'False
  166.       FontItalic      =   0   'False
  167.       FontName        =   "MS Sans Serif"
  168.       FontSize        =   8.25
  169.       FontStrikethru  =   0   'False
  170.       FontUnderline   =   0   'False
  171.       Height          =   270
  172.       Index           =   6
  173.       Left            =   225
  174.       RoundedCorners  =   0   'False
  175.       TabIndex        =   10
  176.       Top             =   2895
  177.       Width           =   480
  178.    End
  179.    Begin SSCommand Command3 
  180.       BevelWidth      =   1
  181.       Caption         =   "Jun"
  182.       FontBold        =   0   'False
  183.       FontItalic      =   0   'False
  184.       FontName        =   "MS Sans Serif"
  185.       FontSize        =   8.25
  186.       FontStrikethru  =   0   'False
  187.       FontUnderline   =   0   'False
  188.       Height          =   270
  189.       Index           =   5
  190.       Left            =   2550
  191.       RoundedCorners  =   0   'False
  192.       TabIndex        =   9
  193.       Top             =   2640
  194.       Width           =   480
  195.    End
  196.    Begin SSCommand Command3 
  197.       BevelWidth      =   1
  198.       Caption         =   "May"
  199.       FontBold        =   0   'False
  200.       FontItalic      =   0   'False
  201.       FontName        =   "MS Sans Serif"
  202.       FontSize        =   8.25
  203.       FontStrikethru  =   0   'False
  204.       FontUnderline   =   0   'False
  205.       Height          =   270
  206.       Index           =   4
  207.       Left            =   2085
  208.       RoundedCorners  =   0   'False
  209.       TabIndex        =   8
  210.       Top             =   2640
  211.       Width           =   480
  212.    End
  213.    Begin SSCommand Command3 
  214.       BevelWidth      =   1
  215.       Caption         =   "Apr"
  216.       FontBold        =   0   'False
  217.       FontItalic      =   0   'False
  218.       FontName        =   "MS Sans Serif"
  219.       FontSize        =   8.25
  220.       FontStrikethru  =   0   'False
  221.       FontUnderline   =   0   'False
  222.       Height          =   270
  223.       Index           =   3
  224.       Left            =   1620
  225.       RoundedCorners  =   0   'False
  226.       TabIndex        =   7
  227.       Top             =   2640
  228.       Width           =   480
  229.    End
  230.    Begin SSCommand Command3 
  231.       BevelWidth      =   1
  232.       Caption         =   "Mar"
  233.       FontBold        =   0   'False
  234.       FontItalic      =   0   'False
  235.       FontName        =   "MS Sans Serif"
  236.       FontSize        =   8.25
  237.       FontStrikethru  =   0   'False
  238.       FontUnderline   =   0   'False
  239.       Height          =   270
  240.       Index           =   2
  241.       Left            =   1155
  242.       RoundedCorners  =   0   'False
  243.       TabIndex        =   6
  244.       Top             =   2640
  245.       Width           =   480
  246.    End
  247.    Begin SSCommand Command3 
  248.       BevelWidth      =   1
  249.       Caption         =   "Feb"
  250.       FontBold        =   0   'False
  251.       FontItalic      =   0   'False
  252.       FontName        =   "MS Sans Serif"
  253.       FontSize        =   8.25
  254.       FontStrikethru  =   0   'False
  255.       FontUnderline   =   0   'False
  256.       Height          =   270
  257.       Index           =   1
  258.       Left            =   690
  259.       RoundedCorners  =   0   'False
  260.       TabIndex        =   5
  261.       Top             =   2640
  262.       Width           =   480
  263.    End
  264.    Begin SSCommand Command3 
  265.       BevelWidth      =   1
  266.       Caption         =   "Jan"
  267.       FontBold        =   0   'False
  268.       FontItalic      =   0   'False
  269.       FontName        =   "MS Sans Serif"
  270.       FontSize        =   8.25
  271.       FontStrikethru  =   0   'False
  272.       FontUnderline   =   0   'False
  273.       Height          =   270
  274.       Index           =   0
  275.       Left            =   225
  276.       RoundedCorners  =   0   'False
  277.       TabIndex        =   4
  278.       Top             =   2640
  279.       Width           =   480
  280.    End
  281.    Begin TextBox MonthValue 
  282.       Height          =   330
  283.       Left            =   3880
  284.       TabIndex        =   33
  285.       Top             =   105
  286.       Visible         =   0   'False
  287.       Width           =   390
  288.    End
  289.    Begin Label Label2 
  290.       Alignment       =   2  'Center
  291.       BackColor       =   &H00C0C0C0&
  292.       BackStyle       =   0  'Transparent
  293.       Caption         =   "S"
  294.       FontBold        =   0   'False
  295.       FontItalic      =   0   'False
  296.       FontName        =   "MS Sans Serif"
  297.       FontSize        =   8.25
  298.       FontStrikethru  =   0   'False
  299.       FontUnderline   =   0   'False
  300.       ForeColor       =   &H000000FF&
  301.       Height          =   255
  302.       Index           =   8
  303.       Left            =   240
  304.       TabIndex        =   26
  305.       Top             =   600
  306.       Width           =   375
  307.    End
  308.    Begin Label Label2 
  309.       Alignment       =   2  'Center
  310.       BackColor       =   &H00C0C0C0&
  311.       BackStyle       =   0  'Transparent
  312.       Caption         =   "M"
  313.       FontBold        =   0   'False
  314.       FontItalic      =   0   'False
  315.       FontName        =   "MS Sans Serif"
  316.       FontSize        =   8.25
  317.       FontStrikethru  =   0   'False
  318.       FontUnderline   =   0   'False
  319.       ForeColor       =   &H00000000&
  320.       Height          =   255
  321.       Index           =   7
  322.       Left            =   600
  323.       TabIndex        =   27
  324.       Top             =   600
  325.       Width           =   375
  326.    End
  327.    Begin Label Label2 
  328.       Alignment       =   2  'Center
  329.       BackColor       =   &H00C0C0C0&
  330.       BackStyle       =   0  'Transparent
  331.       Caption         =   "T"
  332.       FontBold        =   0   'False
  333.       FontItalic      =   0   'False
  334.       FontName        =   "MS Sans Serif"
  335.       FontSize        =   8.25
  336.       FontStrikethru  =   0   'False
  337.       FontUnderline   =   0   'False
  338.       ForeColor       =   &H00000000&
  339.       Height          =   255
  340.       Index           =   9
  341.       Left            =   960
  342.       TabIndex        =   28
  343.       Top             =   600
  344.       Width           =   375
  345.    End
  346.    Begin Label Label2 
  347.       Alignment       =   2  'Center
  348.       BackColor       =   &H00C0C0C0&
  349.       BackStyle       =   0  'Transparent
  350.       Caption         =   "W"
  351.       FontBold        =   0   'False
  352.       FontItalic      =   0   'False
  353.       FontName        =   "MS Sans Serif"
  354.       FontSize        =   8.25
  355.       FontStrikethru  =   0   'False
  356.       FontUnderline   =   0   'False
  357.       ForeColor       =   &H00000000&
  358.       Height          =   255
  359.       Index           =   10
  360.       Left            =   1320
  361.       TabIndex        =   29
  362.       Top             =   600
  363.       Width           =   375
  364.    End
  365.    Begin Label Label2 
  366.       Alignment       =   2  'Center
  367.       BackColor       =   &H00C0C0C0&
  368.       BackStyle       =   0  'Transparent
  369.       Caption         =   "T"
  370.       FontBold        =   0   'False
  371.       FontItalic      =   0   'False
  372.       FontName        =   "MS Sans Serif"
  373.       FontSize        =   8.25
  374.       FontStrikethru  =   0   'False
  375.       FontUnderline   =   0   'False
  376.       ForeColor       =   &H00000000&
  377.       Height          =   255
  378.       Index           =   11
  379.       Left            =   1680
  380.       TabIndex        =   30
  381.       Top             =   600
  382.       Width           =   375
  383.    End
  384.    Begin Label Label2 
  385.       Alignment       =   2  'Center
  386.       BackColor       =   &H00C0C0C0&
  387.       BackStyle       =   0  'Transparent
  388.       Caption         =   "F"
  389.       FontBold        =   0   'False
  390.       FontItalic      =   0   'False
  391.       FontName        =   "MS Sans Serif"
  392.       FontSize        =   8.25
  393.       FontStrikethru  =   0   'False
  394.       FontUnderline   =   0   'False
  395.       ForeColor       =   &H00000000&
  396.       Height          =   255
  397.       Index           =   12
  398.       Left            =   2040
  399.       TabIndex        =   35
  400.       Top             =   600
  401.       Width           =   375
  402.    End
  403.    Begin Label Label2 
  404.       Alignment       =   2  'Center
  405.       BackColor       =   &H00C0C0C0&
  406.       BackStyle       =   0  'Transparent
  407.       Caption         =   "S"
  408.       FontBold        =   0   'False
  409.       FontItalic      =   0   'False
  410.       FontName        =   "MS Sans Serif"
  411.       FontSize        =   8.25
  412.       FontStrikethru  =   0   'False
  413.       FontUnderline   =   0   'False
  414.       ForeColor       =   &H00FF0000&
  415.       Height          =   255
  416.       Index           =   13
  417.       Left            =   2400
  418.       TabIndex        =   36
  419.       Top             =   600
  420.       Width           =   375
  421.    End
  422.    Begin Label Mh3d1 
  423.       Alignment       =   2  'Center
  424.       BackColor       =   &H00C0C0C0&
  425.       FontBold        =   0   'False
  426.       FontItalic      =   0   'False
  427.       FontName        =   "MS Sans Serif"
  428.       FontSize        =   8.25
  429.       FontStrikethru  =   0   'False
  430.       FontUnderline   =   0   'False
  431.       ForeColor       =   &H00000000&
  432.       Height          =   225
  433.       Index           =   0
  434.       Left            =   240
  435.       TabIndex        =   37
  436.       Top             =   855
  437.       Width           =   375
  438.    End
  439.    Begin Label Mh3d1 
  440.       Alignment       =   2  'Center
  441.       BackColor       =   &H00C0C0C0&
  442.       Caption         =   "1"
  443.       FontBold        =   0   'False
  444.       FontItalic      =   0   'False
  445.       FontName        =   "MS Sans Serif"
  446.       FontSize        =   8.25
  447.       FontStrikethru  =   0   'False
  448.       FontUnderline   =   0   'False
  449.       ForeColor       =   &H00000000&
  450.       Height          =   225
  451.       Index           =   1
  452.       Left            =   600
  453.       TabIndex        =   38
  454.       Top             =   855
  455.       Width           =   375
  456.    End
  457.    Begin Label Mh3d1 
  458.       Alignment       =   2  'Center
  459.       BackColor       =   &H00C0C0C0&
  460.       Caption         =   "2"
  461.       FontBold        =   0   'False
  462.       FontItalic      =   0   'False
  463.       FontName        =   "MS Sans Serif"
  464.       FontSize        =   8.25
  465.       FontStrikethru  =   0   'False
  466.       FontUnderline   =   0   'False
  467.       ForeColor       =   &H00000000&
  468.       Height          =   225
  469.       Index           =   2
  470.       Left            =   960
  471.       TabIndex        =   39
  472.       Top             =   855
  473.       Width           =   375
  474.    End
  475.    Begin Label Mh3d1 
  476.       Alignment       =   2  'Center
  477.       BackColor       =   &H00C0C0C0&
  478.       Caption         =   "3"
  479.       FontBold        =   0   'False
  480.       FontItalic      =   0   'False
  481.       FontName        =   "MS Sans Serif"
  482.       FontSize        =   8.25
  483.       FontStrikethru  =   0   'False
  484.       FontUnderline   =   0   'False
  485.       ForeColor       =   &H00000000&
  486.       Height          =   225
  487.       Index           =   3
  488.       Left            =   1320
  489.       TabIndex        =   40
  490.       Top             =   855
  491.       Width           =   375
  492.    End
  493.    Begin Label Mh3d1 
  494.       Alignment       =   2  'Center
  495.       BackColor       =   &H00C0C0C0&
  496.       Caption         =   "4"
  497.       FontBold        =   0   'False
  498.       FontItalic      =   0   'False
  499.       FontName        =   "MS Sans Serif"
  500.       FontSize        =   8.25
  501.       FontStrikethru  =   0   'False
  502.       FontUnderline   =   0   'False
  503.       ForeColor       =   &H00000000&
  504.       Height          =   225
  505.       Index           =   4
  506.       Left            =   1680
  507.       TabIndex        =   41
  508.       Top             =   855
  509.       Width           =   375
  510.    End
  511.    Begin Label Mh3d1 
  512.       Alignment       =   2  'Center
  513.       BackColor       =   &H00C0C0C0&
  514.       Caption         =   "5"
  515.       FontBold        =   0   'False
  516.       FontItalic      =   0   'False
  517.       FontName        =   "MS Sans Serif"
  518.       FontSize        =   8.25
  519.       FontStrikethru  =   0   'False
  520.       FontUnderline   =   0   'False
  521.       ForeColor       =   &H00000000&
  522.       Height          =   225
  523.       Index           =   5
  524.       Left            =   2040
  525.       TabIndex        =   42
  526.       Top             =   855
  527.       Width           =   375
  528.    End
  529.    Begin Label Mh3d1 
  530.       Alignment       =   2  'Center
  531.       BackColor       =   &H00C0C0C0&
  532.       Caption         =   "6"
  533.       FontBold        =   0   'False
  534.       FontItalic      =   0   'False
  535.       FontName        =   "MS Sans Serif"
  536.       FontSize        =   8.25
  537.       FontStrikethru  =   0   'False
  538.       FontUnderline   =   0   'False
  539.       ForeColor       =   &H00000000&
  540.       Height          =   225
  541.       Index           =   6
  542.       Left            =   2400
  543.       TabIndex        =   43
  544.       Top             =   855
  545.       Width           =   375
  546.    End
  547.    Begin Label Mh3d1 
  548.       Alignment       =   2  'Center
  549.       BackColor       =   &H00C0C0C0&
  550.       Caption         =   "7"
  551.       FontBold        =   0   'False
  552.       FontItalic      =   0   'False
  553.       FontName        =   "MS Sans Serif"
  554.       FontSize        =   8.25
  555.       FontStrikethru  =   0   'False
  556.       FontUnderline   =   0   'False
  557.       ForeColor       =   &H00000000&
  558.       Height          =   225
  559.       Index           =   7
  560.       Left            =   240
  561.       TabIndex        =   44
  562.       Top             =   1080
  563.       Width           =   375
  564.    End
  565.    Begin Label Mh3d1 
  566.       Alignment       =   2  'Center
  567.       BackColor       =   &H00C0C0C0&
  568.       Caption         =   "8"
  569.       FontBold        =   0   'False
  570.       FontItalic      =   0   'False
  571.       FontName        =   "MS Sans Serif"
  572.       FontSize        =   8.25
  573.       FontStrikethru  =   0   'False
  574.       FontUnderline   =   0   'False
  575.       ForeColor       =   &H00000000&
  576.       Height          =   225
  577.       Index           =   8
  578.       Left            =   600
  579.       TabIndex        =   45
  580.       Top             =   1080
  581.       Width           =   375
  582.    End
  583.    Begin Label Mh3d1 
  584.       Alignment       =   2  'Center
  585.       BackColor       =   &H00C0C0C0&
  586.       Caption         =   "9"
  587.       FontBold        =   0   'False
  588.       FontItalic      =   0   'False
  589.       FontName        =   "MS Sans Serif"
  590.       FontSize        =   8.25
  591.       FontStrikethru  =   0   'False
  592.       FontUnderline   =   0   'False
  593.       ForeColor       =   &H00000000&
  594.       Height          =   225
  595.       Index           =   9
  596.       Left            =   960
  597.       TabIndex        =   46
  598.       Top             =   1080
  599.       Width           =   375
  600.    End
  601.    Begin Label Mh3d1 
  602.       Alignment       =   2  'Center
  603.       BackColor       =   &H00C0C0C0&
  604.       Caption         =   "10"
  605.       FontBold        =   0   'False
  606.       FontItalic      =   0   'False
  607.       FontName        =   "MS Sans Serif"
  608.       FontSize        =   8.25
  609.       FontStrikethru  =   0   'False
  610.       FontUnderline   =   0   'False
  611.       ForeColor       =   &H00000000&
  612.       Height          =   225
  613.       Index           =   10
  614.       Left            =   1320
  615.       TabIndex        =   47
  616.       Top             =   1080
  617.       Width           =   375
  618.    End
  619.    Begin Label Mh3d1 
  620.       Alignment       =   2  'Center
  621.       BackColor       =   &H00C0C0C0&
  622.       Caption         =   "11"
  623.       FontBold        =   0   'False
  624.       FontItalic      =   0   'False
  625.       FontName        =   "MS Sans Serif"
  626.       FontSize        =   8.25
  627.       FontStrikethru  =   0   'False
  628.       FontUnderline   =   0   'False
  629.       ForeColor       =   &H00000000&
  630.       Height          =   225
  631.       Index           =   11
  632.       Left            =   1680
  633.       TabIndex        =   48
  634.       Top             =   1080
  635.       Width           =   375
  636.    End
  637.    Begin Label Mh3d1 
  638.       Alignment       =   2  'Center
  639.       BackColor       =   &H00C0C0C0&
  640.       Caption         =   "12"
  641.       FontBold        =   0   'False
  642.       FontItalic      =   0   'False
  643.       FontName        =   "MS Sans Serif"
  644.       FontSize        =   8.25
  645.       FontStrikethru  =   0   'False
  646.       FontUnderline   =   0   'False
  647.       ForeColor       =   &H00000000&
  648.       Height          =   225
  649.       Index           =   12
  650.       Left            =   2040
  651.       TabIndex        =   49
  652.       Top             =   1080
  653.       Width           =   375
  654.    End
  655.    Begin Label Mh3d1 
  656.       Alignment       =   2  'Center
  657.       BackColor       =   &H00C0C0C0&
  658.       Caption         =   "13"
  659.       FontBold        =   0   'False
  660.       FontItalic      =   0   'False
  661.       FontName        =   "MS Sans Serif"
  662.       FontSize        =   8.25
  663.       FontStrikethru  =   0   'False
  664.       FontUnderline   =   0   'False
  665.       ForeColor       =   &H00000000&
  666.       Height          =   225
  667.       Index           =   13
  668.       Left            =   2400
  669.       TabIndex        =   50
  670.       Top             =   1080
  671.       Width           =   375
  672.    End
  673.    Begin Label Mh3d1 
  674.       Alignment       =   2  'Center
  675.       BackColor       =   &H00C0C0C0&
  676.       Caption         =   "14"
  677.       FontBold        =   0   'False
  678.       FontItalic      =   0   'False
  679.       FontName        =   "MS Sans Serif"
  680.       FontSize        =   8.25
  681.       FontStrikethru  =   0   'False
  682.       FontUnderline   =   0   'False
  683.       ForeColor       =   &H00000000&
  684.       Height          =   225
  685.       Index           =   14
  686.       Left            =   240
  687.       TabIndex        =   51
  688.       Top             =   1320
  689.       Width           =   375
  690.    End
  691.    Begin Label Mh3d1 
  692.       Alignment       =   2  'Center
  693.       BackColor       =   &H00C0C0C0&
  694.       Caption         =   "15"
  695.       FontBold        =   0   'False
  696.       FontItalic      =   0   'False
  697.       FontName        =   "MS Sans Serif"
  698.       FontSize        =   8.25
  699.       FontStrikethru  =   0   'False
  700.       FontUnderline   =   0   'False
  701.       ForeColor       =   &H00000000&
  702.       Height          =   225
  703.       Index           =   15
  704.       Left            =   600
  705.       TabIndex        =   52
  706.       Top             =   1320
  707.       Width           =   375
  708.    End
  709.    Begin Label Mh3d1 
  710.       Alignment       =   2  'Center
  711.       BackColor       =   &H00C0C0C0&
  712.       Caption         =   "16"
  713.       FontBold        =   0   'False
  714.       FontItalic      =   0   'False
  715.       FontName        =   "MS Sans Serif"
  716.       FontSize        =   8.25
  717.       FontStrikethru  =   0   'False
  718.       FontUnderline   =   0   'False
  719.       ForeColor       =   &H00000000&
  720.       Height          =   225
  721.       Index           =   16
  722.       Left            =   960
  723.       TabIndex        =   53
  724.       Top             =   1320
  725.       Width           =   375
  726.    End
  727.    Begin Label Mh3d1 
  728.       Alignment       =   2  'Center
  729.       BackColor       =   &H00C0C0C0&
  730.       Caption         =   "17"
  731.       FontBold        =   0   'False
  732.       FontItalic      =   0   'False
  733.       FontName        =   "MS Sans Serif"
  734.       FontSize        =   8.25
  735.       FontStrikethru  =   0   'False
  736.       FontUnderline   =   0   'False
  737.       ForeColor       =   &H00000000&
  738.       Height          =   225
  739.       Index           =   17
  740.       Left            =   1320
  741.       TabIndex        =   54
  742.       Top             =   1320
  743.       Width           =   375
  744.    End
  745.    Begin Label Mh3d1 
  746.       Alignment       =   2  'Center
  747.       BackColor       =   &H00C0C0C0&
  748.       Caption         =   "18"
  749.       FontBold        =   0   'False
  750.       FontItalic      =   0   'False
  751.       FontName        =   "MS Sans Serif"
  752.       FontSize        =   8.25
  753.       FontStrikethru  =   0   'False
  754.       FontUnderline   =   0   'False
  755.       ForeColor       =   &H00000000&
  756.       Height          =   225
  757.       Index           =   18
  758.       Left            =   1680
  759.       TabIndex        =   55
  760.       Top             =   1320
  761.       Width           =   375
  762.    End
  763.    Begin Label Mh3d1 
  764.       Alignment       =   2  'Center
  765.       BackColor       =   &H00C0C0C0&
  766.       Caption         =   "19"
  767.       FontBold        =   0   'False
  768.       FontItalic      =   0   'False
  769.       FontName        =   "MS Sans Serif"
  770.       FontSize        =   8.25
  771.       FontStrikethru  =   0   'False
  772.       FontUnderline   =   0   'False
  773.       ForeColor       =   &H00000000&
  774.       Height          =   225
  775.       Index           =   19
  776.       Left            =   2040
  777.       TabIndex        =   56
  778.       Top             =   1320
  779.       Width           =   375
  780.    End
  781.    Begin Label Mh3d1 
  782.       Alignment       =   2  'Center
  783.       BackColor       =   &H00C0C0C0&
  784.       Caption         =   "20"
  785.       FontBold        =   0   'False
  786.       FontItalic      =   0   'False
  787.       FontName        =   "MS Sans Serif"
  788.       FontSize        =   8.25
  789.       FontStrikethru  =   0   'False
  790.       FontUnderline   =   0   'False
  791.       ForeColor       =   &H00000000&
  792.       Height          =   225
  793.       Index           =   20
  794.       Left            =   2400
  795.       TabIndex        =   57
  796.       Top             =   1320
  797.       Width           =   375
  798.    End
  799.    Begin Label Mh3d1 
  800.       Alignment       =   2  'Center
  801.       BackColor       =   &H00C0C0C0&
  802.       Caption         =   "21"
  803.       FontBold        =   0   'False
  804.       FontItalic      =   0   'False
  805.       FontName        =   "MS Sans Serif"
  806.       FontSize        =   8.25
  807.       FontStrikethru  =   0   'False
  808.       FontUnderline   =   0   'False
  809.       ForeColor       =   &H00000000&
  810.       Height          =   225
  811.       Index           =   21
  812.       Left            =   240
  813.       TabIndex        =   58
  814.       Top             =   1560
  815.       Width           =   375
  816.    End
  817.    Begin Label Mh3d1 
  818.       Alignment       =   2  'Center
  819.       BackColor       =   &H00C0C0C0&
  820.       Caption         =   "22"
  821.       FontBold        =   0   'False
  822.       FontItalic      =   0   'False
  823.       FontName        =   "MS Sans Serif"
  824.       FontSize        =   8.25
  825.       FontStrikethru  =   0   'False
  826.       FontUnderline   =   0   'False
  827.       ForeColor       =   &H00000000&
  828.       Height          =   225
  829.       Index           =   22
  830.       Left            =   600
  831.       TabIndex        =   59
  832.       Top             =   1560
  833.       Width           =   375
  834.    End
  835.    Begin Label Mh3d1 
  836.       Alignment       =   2  'Center
  837.       BackColor       =   &H00C0C0C0&
  838.       Caption         =   "23"
  839.       FontBold        =   0   'False
  840.       FontItalic      =   0   'False
  841.       FontName        =   "MS Sans Serif"
  842.       FontSize        =   8.25
  843.       FontStrikethru  =   0   'False
  844.       FontUnderline   =   0   'False
  845.       ForeColor       =   &H00000000&
  846.       Height          =   225
  847.       Index           =   23
  848.       Left            =   960
  849.       TabIndex        =   60
  850.       Top             =   1560
  851.       Width           =   375
  852.    End
  853.    Begin Label Mh3d1 
  854.       Alignment       =   2  'Center
  855.       BackColor       =   &H00C0C0C0&
  856.       Caption         =   "24"
  857.       FontBold        =   0   'False
  858.       FontItalic      =   0   'False
  859.       FontName        =   "MS Sans Serif"
  860.       FontSize        =   8.25
  861.       FontStrikethru  =   0   'False
  862.       FontUnderline   =   0   'False
  863.       ForeColor       =   &H00000000&
  864.       Height          =   225
  865.       Index           =   24
  866.       Left            =   1320
  867.       TabIndex        =   61
  868.       Top             =   1560
  869.       Width           =   375
  870.    End
  871.    Begin Label Mh3d1 
  872.       Alignment       =   2  'Center
  873.       BackColor       =   &H00C0C0C0&
  874.       Caption         =   "25"
  875.       FontBold        =   0   'False
  876.       FontItalic      =   0   'False
  877.       FontName        =   "MS Sans Serif"
  878.       FontSize        =   8.25
  879.       FontStrikethru  =   0   'False
  880.       FontUnderline   =   0   'False
  881.       ForeColor       =   &H00000000&
  882.       Height          =   225
  883.       Index           =   25
  884.       Left            =   1680
  885.       TabIndex        =   62
  886.       Top             =   1560
  887.       Width           =   375
  888.    End
  889.    Begin Label Mh3d1 
  890.       Alignment       =   2  'Center
  891.       BackColor       =   &H00C0C0C0&
  892.       Caption         =   "26"
  893.       FontBold        =   0   'False
  894.       FontItalic      =   0   'False
  895.       FontName        =   "MS Sans Serif"
  896.       FontSize        =   8.25
  897.       FontStrikethru  =   0   'False
  898.       FontUnderline   =   0   'False
  899.       ForeColor       =   &H00000000&
  900.       Height          =   225
  901.       Index           =   26
  902.       Left            =   2040
  903.       TabIndex        =   63
  904.       Top             =   1560
  905.       Width           =   375
  906.    End
  907.    Begin Label Mh3d1 
  908.       Alignment       =   2  'Center
  909.       BackColor       =   &H00C0C0C0&
  910.       Caption         =   "27"
  911.       FontBold        =   0   'False
  912.       FontItalic      =   0   'False
  913.       FontName        =   "MS Sans Serif"
  914.       FontSize        =   8.25
  915.       FontStrikethru  =   0   'False
  916.       FontUnderline   =   0   'False
  917.       ForeColor       =   &H00000000&
  918.       Height          =   225
  919.       Index           =   27
  920.       Left            =   2400
  921.       TabIndex        =   64
  922.       Top             =   1560
  923.       Width           =   375
  924.    End
  925.    Begin Label Mh3d1 
  926.       Alignment       =   2  'Center
  927.       BackColor       =   &H00C0C0C0&
  928.       Caption         =   "28"
  929.       FontBold        =   0   'False
  930.       FontItalic      =   0   'False
  931.       FontName        =   "MS Sans Serif"
  932.       FontSize        =   8.25
  933.       FontStrikethru  =   0   'False
  934.       FontUnderline   =   0   'False
  935.       ForeColor       =   &H00000000&
  936.       Height          =   225
  937.       Index           =   28
  938.       Left            =   240
  939.       TabIndex        =   65
  940.       Top             =   1815
  941.       Width           =   375
  942.    End
  943.    Begin Label Mh3d1 
  944.       Alignment       =   2  'Center
  945.       BackColor       =   &H00C0C0C0&
  946.       Caption         =   "29"
  947.       FontBold        =   0   'False
  948.       FontItalic      =   0   'False
  949.       FontName        =   "MS Sans Serif"
  950.       FontSize        =   8.25
  951.       FontStrikethru  =   0   'False
  952.       FontUnderline   =   0   'False
  953.       ForeColor       =   &H00000000&
  954.       Height          =   225
  955.       Index           =   29
  956.       Left            =   600
  957.       TabIndex        =   66
  958.       Top             =   1815
  959.       Width           =   375
  960.    End
  961.    Begin Label Mh3d1 
  962.       Alignment       =   2  'Center
  963.       BackColor       =   &H00C0C0C0&
  964.       Caption         =   "30"
  965.       FontBold        =   0   'False
  966.       FontItalic      =   0   'False
  967.       FontName        =   "MS Sans Serif"
  968.       FontSize        =   8.25
  969.       FontStrikethru  =   0   'False
  970.       FontUnderline   =   0   'False
  971.       ForeColor       =   &H00000000&
  972.       Height          =   225
  973.       Index           =   30
  974.       Left            =   960
  975.       TabIndex        =   67
  976.       Top             =   1815
  977.       Width           =   375
  978.    End
  979.    Begin Label Mh3d1 
  980.       Alignment       =   2  'Center
  981.       BackColor       =   &H00C0C0C0&
  982.       Caption         =   "31"
  983.       FontBold        =   0   'False
  984.       FontItalic      =   0   'False
  985.       FontName        =   "MS Sans Serif"
  986.       FontSize        =   8.25
  987.       FontStrikethru  =   0   'False
  988.       FontUnderline   =   0   'False
  989.       ForeColor       =   &H00000000&
  990.       Height          =   225
  991.       Index           =   31
  992.       Left            =   1320
  993.       TabIndex        =   68
  994.       Top             =   1815
  995.       Width           =   375
  996.    End
  997.    Begin Label Mh3d1 
  998.       Alignment       =   2  'Center
  999.       BackColor       =   &H00C0C0C0&
  1000.       Caption         =   "32"
  1001.       FontBold        =   0   'False
  1002.       FontItalic      =   0   'False
  1003.       FontName        =   "MS Sans Serif"
  1004.       FontSize        =   8.25
  1005.       FontStrikethru  =   0   'False
  1006.       FontUnderline   =   0   'False
  1007.       ForeColor       =   &H00000000&
  1008.       Height          =   225
  1009.       Index           =   32
  1010.       Left            =   1680
  1011.       TabIndex        =   69
  1012.       Top             =   1815
  1013.       Width           =   375
  1014.    End
  1015.    Begin Label Mh3d1 
  1016.       Alignment       =   2  'Center
  1017.       BackColor       =   &H00C0C0C0&
  1018.       Caption         =   "33"
  1019.       FontBold        =   0   'False
  1020.       FontItalic      =   0   'False
  1021.       FontName        =   "MS Sans Serif"
  1022.       FontSize        =   8.25
  1023.       FontStrikethru  =   0   'False
  1024.       FontUnderline   =   0   'False
  1025.       ForeColor       =   &H00000000&
  1026.       Height          =   225
  1027.       Index           =   33
  1028.       Left            =   2040
  1029.       TabIndex        =   17
  1030.       Top             =   1815
  1031.       Width           =   375
  1032.    End
  1033.    Begin Label Mh3d1 
  1034.       Alignment       =   2  'Center
  1035.       BackColor       =   &H00C0C0C0&
  1036.       Caption         =   "34"
  1037.       FontBold        =   0   'False
  1038.       FontItalic      =   0   'False
  1039.       FontName        =   "MS Sans Serif"
  1040.       FontSize        =   8.25
  1041.       FontStrikethru  =   0   'False
  1042.       FontUnderline   =   0   'False
  1043.       ForeColor       =   &H00000000&
  1044.       Height          =   225
  1045.       Index           =   34
  1046.       Left            =   2400
  1047.       TabIndex        =   18
  1048.       Top             =   1815
  1049.       Width           =   375
  1050.    End
  1051.    Begin Label Mh3d1 
  1052.       Alignment       =   2  'Center
  1053.       BackColor       =   &H00C0C0C0&
  1054.       Caption         =   "35"
  1055.       FontBold        =   0   'False
  1056.       FontItalic      =   0   'False
  1057.       FontName        =   "MS Sans Serif"
  1058.       FontSize        =   8.25
  1059.       FontStrikethru  =   0   'False
  1060.       FontUnderline   =   0   'False
  1061.       ForeColor       =   &H00000000&
  1062.       Height          =   225
  1063.       Index           =   35
  1064.       Left            =   240
  1065.       TabIndex        =   19
  1066.       Top             =   2055
  1067.       Width           =   375
  1068.    End
  1069.    Begin Label Mh3d1 
  1070.       Alignment       =   2  'Center
  1071.       BackColor       =   &H00C0C0C0&
  1072.       Caption         =   "36"
  1073.       FontBold        =   0   'False
  1074.       FontItalic      =   0   'False
  1075.       FontName        =   "MS Sans Serif"
  1076.       FontSize        =   8.25
  1077.       FontStrikethru  =   0   'False
  1078.       FontUnderline   =   0   'False
  1079.       ForeColor       =   &H00000000&
  1080.       Height          =   225
  1081.       Index           =   36
  1082.       Left            =   600
  1083.       TabIndex        =   20
  1084.       Top             =   2055
  1085.       Width           =   375
  1086.    End
  1087.    Begin Label Mh3d1 
  1088.       Alignment       =   2  'Center
  1089.       BackColor       =   &H00C0C0C0&
  1090.       Caption         =   " "
  1091.       FontBold        =   0   'False
  1092.       FontItalic      =   0   'False
  1093.       FontName        =   "MS Sans Serif"
  1094.       FontSize        =   8.25
  1095.       FontStrikethru  =   0   'False
  1096.       FontUnderline   =   0   'False
  1097.       ForeColor       =   &H00000000&
  1098.       Height          =   225
  1099.       Index           =   37
  1100.       Left            =   960
  1101.       TabIndex        =   21
  1102.       Top             =   2055
  1103.       Width           =   375
  1104.    End
  1105.    Begin Label Mh3d1 
  1106.       Alignment       =   2  'Center
  1107.       BackColor       =   &H00C0C0C0&
  1108.       Caption         =   " "
  1109.       FontBold        =   0   'False
  1110.       FontItalic      =   0   'False
  1111.       FontName        =   "MS Sans Serif"
  1112.       FontSize        =   8.25
  1113.       FontStrikethru  =   0   'False
  1114.       FontUnderline   =   0   'False
  1115.       ForeColor       =   &H00000000&
  1116.       Height          =   225
  1117.       Index           =   38
  1118.       Left            =   1320
  1119.       TabIndex        =   22
  1120.       Top             =   2055
  1121.       Width           =   375
  1122.    End
  1123.    Begin Label Mh3d1 
  1124.       Alignment       =   2  'Center
  1125.       BackColor       =   &H00C0C0C0&
  1126.       Caption         =   " "
  1127.       FontBold        =   0   'False
  1128.       FontItalic      =   0   'False
  1129.       FontName        =   "MS Sans Serif"
  1130.       FontSize        =   8.25
  1131.       FontStrikethru  =   0   'False
  1132.       FontUnderline   =   0   'False
  1133.       ForeColor       =   &H00000000&
  1134.       Height          =   225
  1135.       Index           =   39
  1136.       Left            =   1680
  1137.       TabIndex        =   23
  1138.       Top             =   2055
  1139.       Width           =   375
  1140.    End
  1141.    Begin Label Mh3d1 
  1142.       Alignment       =   2  'Center
  1143.       BackColor       =   &H00C0C0C0&
  1144.       Caption         =   " "
  1145.       FontBold        =   0   'False
  1146.       FontItalic      =   0   'False
  1147.       FontName        =   "MS Sans Serif"
  1148.       FontSize        =   8.25
  1149.       FontStrikethru  =   0   'False
  1150.       FontUnderline   =   0   'False
  1151.       ForeColor       =   &H00000000&
  1152.       Height          =   225
  1153.       Index           =   40
  1154.       Left            =   2040
  1155.       TabIndex        =   31
  1156.       Top             =   2055
  1157.       Width           =   375
  1158.    End
  1159.    Begin Label Mh3d1 
  1160.       Alignment       =   2  'Center
  1161.       BackColor       =   &H00C0C0C0&
  1162.       Caption         =   " "
  1163.       FontBold        =   0   'False
  1164.       FontItalic      =   0   'False
  1165.       FontName        =   "MS Sans Serif"
  1166.       FontSize        =   8.25
  1167.       FontStrikethru  =   0   'False
  1168.       FontUnderline   =   0   'False
  1169.       ForeColor       =   &H00000000&
  1170.       Height          =   225
  1171.       Index           =   41
  1172.       Left            =   2400
  1173.       TabIndex        =   32
  1174.       Top             =   2055
  1175.       Width           =   375
  1176.    End
  1177.    Begin Label Yr 
  1178.       Alignment       =   2  'Center
  1179.       AutoSize        =   -1  'True
  1180.       BackColor       =   &H00C0C0C0&
  1181.       BackStyle       =   0  'Transparent
  1182.       Caption         =   "1991"
  1183.       ForeColor       =   &H00000000&
  1184.       Height          =   195
  1185.       Left            =   1425
  1186.       TabIndex        =   3
  1187.       Tag             =   "Stuck"
  1188.       Top             =   300
  1189.       Width           =   450
  1190.    End
  1191.    Begin Label Mnth 
  1192.       Caption         =   "Mnth"
  1193.       Height          =   435
  1194.       Left            =   3630
  1195.       TabIndex        =   34
  1196.       Top             =   720
  1197.       Width           =   1815
  1198.    End
  1199.    Begin Label TextMonth 
  1200.       Alignment       =   2  'Center
  1201.       AutoSize        =   -1  'True
  1202.       BackColor       =   &H00C0C0C0&
  1203.       BackStyle       =   0  'Transparent
  1204.       Caption         =   "September"
  1205.       FontBold        =   -1  'True
  1206.       FontItalic      =   0   'False
  1207.       FontName        =   "MS Sans Serif"
  1208.       FontSize        =   9.75
  1209.       FontStrikethru  =   0   'False
  1210.       FontUnderline   =   0   'False
  1211.       ForeColor       =   &H00000000&
  1212.       Height          =   240
  1213.       Left            =   1065
  1214.       TabIndex        =   2
  1215.       Tag             =   "Stuck"
  1216.       Top             =   75
  1217.       Width           =   1170
  1218.    End
  1219. End
  1220. Option Explicit
  1221. Dim DaysInMonth(13) As Integer
  1222. Dim TempfColor As Long
  1223. Dim TempbColor As Long
  1224. Dim SavedCallerDateField As Long
  1225. Dim gNocalc As Integer
  1226. Dim DayToSelect As Integer
  1227. Dim Todayed As Integer
  1228. Dim tcLoaded As Integer
  1229.  
  1230. Dim MouseIsDown As Integer
  1231. Dim SavedScaleMode As Integer
  1232. Dim MStartX As Integer
  1233. Dim MStartY As Integer
  1234.  
  1235.  
  1236. Dim LastClick As Integer
  1237. Dim LastClickDate As Integer
  1238.  
  1239. Sub Command1_Click ()
  1240.     ToToday
  1241.     ConvertDates
  1242. End Sub
  1243.  
  1244. Sub Command2_Click (Index As Integer)
  1245.      If Index = 0 Then
  1246.         CallerDateField = DateSerial(ValTrim((Yr.Caption)), ValTrim((Calendar.MonthValue.Text)), ValTrim((Mh3d1(LastClick%).Caption)))
  1247.      'Else
  1248.      '   CallerDateField = SavedCallerDateField
  1249.      End If
  1250.      LastDateField = CallerDateField
  1251.      tcLoaded = False
  1252.      Unload Calendar
  1253.      'Calendar.Hide
  1254. End Sub
  1255.  
  1256. Sub Command3_Click (Index As Integer)
  1257. Todayed = True
  1258. Calendar.MonthScroll.Value = Index + 1
  1259. Calendar.Mnth.Caption = Str$(MonthScroll.Value)
  1260. 'ConvertDates
  1261. End Sub
  1262.  
  1263. Sub ConvertDates ()
  1264. Dim YearC%, MonthC%
  1265. Dim DateToCalc#
  1266. Dim I%, J%, K%, DayNum%, M%
  1267.  
  1268.     Screen.MousePointer = 11
  1269.     DaysInMonth(0) = 0
  1270.     DaysInMonth(1) = 31 'JAN
  1271.     DaysInMonth(2) = 28 'FEB
  1272.     DaysInMonth(3) = 31 'MAR
  1273.     DaysInMonth(4) = 30 'APR
  1274.     DaysInMonth(5) = 31 'MAY
  1275.     DaysInMonth(6) = 30 'JUN
  1276.     DaysInMonth(7) = 31 'JUL
  1277.     DaysInMonth(8) = 31 'AUG
  1278.     DaysInMonth(9) = 30 'SEP
  1279.     DaysInMonth(10) = 31 'OCT
  1280.     DaysInMonth(11) = 30 'NOV
  1281.     DaysInMonth(12) = 31 'DEC
  1282.  
  1283.     YearC% = ValTrim((Calendar.Yr.Caption))
  1284.     MonthC% = ValTrim((Calendar.Mnth.Caption))
  1285.     Calendar.MonthValue.Text = Str$(MonthC%)
  1286.  
  1287.     If YearC% Mod 400 = 0 Then
  1288.         DaysInMonth(2) = 29
  1289.     ElseIf YearC% Mod 100 = 0 Then
  1290.         DaysInMonth(2) = 28
  1291.     ElseIf YearC% Mod 4 = 0 Then
  1292.         DaysInMonth(2) = 29
  1293.     Else
  1294.         DaysInMonth(2) = 28
  1295.     End If
  1296.     DateToCalc# = DateSerial(ValTrim((Calendar.Yr.Caption)), ValTrim((Calendar.Mnth.Caption)), 1)
  1297.     TextMonth.Caption = TransMonth2$(ValTrim((Calendar.Mnth.Caption)))
  1298.     For I% = 0 To 41
  1299.         Mh3d1(I%).Caption = ""
  1300.         Mh3d1(I%).Enabled = False
  1301.     Next I%
  1302.     DayNum% = Weekday(DateToCalc#)
  1303.     J% = 1
  1304.     I% = 0
  1305.     K% = DayNum% - 1
  1306.     M% = 0
  1307.  
  1308.     For I% = 1 To DaysInMonth(MonthC%)
  1309.         If DayToSelect = J% And Todayed Then
  1310.             Mh3d1(LastClick).BackColor = TempbColor
  1311.             Mh3d1(LastClick).ForeColor = TempfColor
  1312.             LastClick% = K%
  1313.             Mh3d1(K%).BackColor = TempfColor
  1314.             Mh3d1(K%).ForeColor = TempbColor
  1315.             Mh3d1_Click (K%)
  1316.             LastClickDate = J%
  1317.             'Exit For
  1318.         ElseIf LastClickDate = J% Then
  1319.             Mh3d1(LastClick).BackColor = TempbColor
  1320.             Mh3d1(LastClick).ForeColor = TempfColor
  1321.             LastClick% = K%
  1322.             Mh3d1(K%).BackColor = TempfColor
  1323.             Mh3d1(K%).ForeColor = TempbColor
  1324.         End If
  1325.         
  1326.         If LastClickDate > DaysInMonth(MonthC%) Or DayToSelect > DaysInMonth(MonthC%) Then
  1327.             Mh3d1(LastClick).BackColor = TempbColor
  1328.             Mh3d1(LastClick).ForeColor = TempfColor
  1329.             LastClick% = K%
  1330.             Mh3d1(K%).BackColor = TempfColor
  1331.             Mh3d1(K%).ForeColor = TempbColor
  1332.         End If
  1333.  
  1334.  
  1335.         
  1336.         Mh3d1(K%).Caption = Trim$(Str$(J%))
  1337.         Mh3d1(K%).Enabled = True
  1338.         J% = J% + 1
  1339.         K% = K% + 1
  1340.     Next I%
  1341.  
  1342.     
  1343.     Screen.MousePointer = 0
  1344.      
  1345. End Sub
  1346.  
  1347. Sub Form_Load ()
  1348.     Dim bLeft%, bTop%, bright%, bbottom%, Addl%
  1349.     Dim SavedScaleMode%
  1350.     Dim I%
  1351.     Dim OldBottom%, NewBottom%, ChangedTop%
  1352.     OldBottom% = Yr.Top + Yr.Height
  1353.  
  1354.     TextMonth.FontName = AllTheTime.FontName
  1355.     TextMonth.ForeColor = AllTheTime.ForeColor
  1356.     TextMonth.FontBold = AllTheTime.FontBold
  1357.     TextMonth.FontSize = AllTheTime.FontSize
  1358.     Yr.FontName = AllTheTime.FontName
  1359.     Yr.ForeColor = AllTheTime.ForeColor
  1360.     Yr.FontBold = AllTheTime.FontBold
  1361.     Yr.FontSize = AllTheTime.FontSize
  1362.     Yr.Top = TextMonth.Top + TextMonth.Height '- 2
  1363.     
  1364.     NewBottom% = Yr.Top + Yr.Height
  1365.     ChangedTop% = NewBottom% - OldBottom%
  1366.  
  1367.     For I% = 0 To Controls.Count - 1
  1368.        If Controls(I%).Tag <> "Stuck" Then
  1369.           Controls(I%).Top = Controls(I%).Top + ChangedTop%
  1370.        End If
  1371.     Next I%
  1372.     Me.Height = Me.Height + ChangedTop% * GTwpsPerPxly
  1373.  
  1374.     For I% = 7 To 13
  1375.        Label2(I%).FontName = AllTheTime.FontName
  1376.        'Yr.ForeColor = AllTheTime.ForeColor
  1377.        'Yr.FontBold = AllTheTime.FontBold
  1378.        'Yr.FontSize = AllTheTime.FontSize
  1379.        'Label2(I%).Top = Yr.Top + Yr.Height + 3
  1380.        Label2(I%).Top = YearScroll.Top + 2
  1381.     Next I%
  1382.     Left = (Screen.Width - Width) / 2
  1383.     Top = (Screen.Height - Height) / 2
  1384.     AutoRedraw = True
  1385.     picture = LoadPicture("")
  1386.     bLeft = MonthScroll.Left + 1
  1387.     bright = YearScroll.Left + YearScroll.Width - 1
  1388.     bbottom = MonthScroll.Top + MonthScroll.Height - 1
  1389.     bTop = YearScroll.Top + 1
  1390.          'top
  1391.     Line (bLeft - 1 - Addl%, bTop - 1 - Addl%)-(bright + 1 + Addl%, bTop - 1 - Addl%), 0
  1392.     Line (bLeft - 2 - Addl%, bTop - 2 - Addl%)-(bright + 2 + Addl%, bTop - 2 - Addl%), &H808080
  1393.          'left
  1394.     Line (bLeft - 1 - Addl%, bTop - 1 - Addl%)-(bLeft - 1 - Addl%, bbottom + 1 + Addl%), 0
  1395.     Line (bLeft - 2 - Addl%, bTop - 2 - Addl%)-(bLeft - 2 - Addl%, bbottom + 2 + Addl%), &H808080
  1396.          'bottom
  1397.     Line (bLeft - 1 - Addl%, bbottom + 0 + Addl%)-(bright + 1 + Addl%, bbottom + 0 + Addl%), 0
  1398.     Line (bLeft - 2 - Addl%, bbottom + 1 + Addl%)-(bright + 2 + Addl%, bbottom + 1 + Addl%), &HFFFFFF
  1399.          'right
  1400.     Line (bright + 0 + Addl%, bTop - 1 - Addl%)-(bright + 0 + Addl%, bbottom + 1 + Addl%), 0'&HC0C0C0
  1401.     Line (bright + 1 + Addl%, bTop - 2 - Addl%)-(bright + 1 + Addl%, bbottom + 2 + Addl%), &HFFFFFF
  1402.  
  1403.     TempbColor = Mh3d1(0).BackColor
  1404.     TempfColor = Mh3d1(0).ForeColor
  1405.     SavedScaleMode = ScaleMode
  1406.     ScaleMode = 1
  1407.     DrawShadow Me
  1408.     ScaleMode = SavedScaleMode
  1409.  
  1410.     AutoRedraw = False
  1411.     Screen.MousePointer = 0
  1412.     ScaleMode = 1
  1413. End Sub
  1414.  
  1415. Sub Form_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1416. SavedScaleMode = ScaleMode
  1417. ScaleMode = 1
  1418. MStartX = x
  1419. MStartY = Y
  1420. MouseIsDown = True
  1421. '
  1422. End Sub
  1423.  
  1424. Sub Form_MouseMove (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1425. If MouseIsDown Then
  1426.    Calendar.Top = Calendar.Top + (Y - MStartY)
  1427.    Calendar.Left = Calendar.Left + (x - MStartX)
  1428. End If
  1429. End Sub
  1430.  
  1431. Sub Form_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1432. MouseIsDown = False
  1433. ScaleMode = SavedScaleMode
  1434. End Sub
  1435.  
  1436. Sub Form_Paint ()
  1437. Dim I%
  1438.     If tcLoaded Then Exit Sub
  1439.     SavedCallerDateField = CallerDateField
  1440.     Command2(0).SetFocus
  1441.     For I% = 0 To 41
  1442.         Mh3d1(I%).ForeColor = 0
  1443.         Mh3d1(I%).BackColor = &HC0C0C0
  1444.     Next I%
  1445.  
  1446.     'Beep
  1447.     Screen.MousePointer = 11
  1448.     LastClick = 1
  1449.     LastClickDate = 1
  1450.     'Refresh
  1451.     tcLoaded = True
  1452.     ToADay (CallerDateField)
  1453.     ConvertDates
  1454.     'Calendar.Hide
  1455.     Screen.MousePointer = 0
  1456. End Sub
  1457.  
  1458. Sub Mh3d1_Click (Index As Integer)
  1459. End Sub
  1460.  
  1461. Sub Mh3d1_DblClick (Index As Integer)
  1462.     'Call Mh3d1_Click(Index)
  1463.     ' tcLoaded = False
  1464.     'Unload Me
  1465. End Sub
  1466.  
  1467. Sub Mh3d1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
  1468.      Mh3d1(LastClick).BackColor = TempbColor
  1469.      Mh3d1(LastClick).ForeColor = TempfColor
  1470.      
  1471.      Mh3d1(Index).BackColor = TempfColor
  1472.      Mh3d1(Index).ForeColor = TempbColor
  1473.      Todayed = False
  1474.      LastClick% = Index
  1475.      LastClickDate = ValTrim((Mh3d1(Index).Caption))
  1476.      CallerDateField = DateSerial(ValTrim((Yr.Caption)), ValTrim((Calendar.MonthValue.Text)), ValTrim((Mh3d1(Index).Caption)))
  1477.  
  1478. End Sub
  1479.  
  1480. Sub MonthScroll_Change ()
  1481.     If MonthScroll.Value = 13 Then
  1482.         gNocalc = True
  1483.         MonthScroll.Value = 1
  1484.         YearScroll.Value = YearScroll.Value + 1
  1485.         gNocalc = False
  1486.     End If
  1487.     If MonthScroll.Value = 0 Then
  1488.         gNocalc = True
  1489.         MonthScroll.Value = 12
  1490.         YearScroll.Value = YearScroll.Value - 1
  1491.         gNocalc = False
  1492.     End If
  1493.  
  1494.     Calendar.Mnth.Caption = Str$(MonthScroll.Value)
  1495.     Calendar.Yr.Caption = Trim$(Str$(YearScroll.Value))
  1496.     If Not gNocalc Then ConvertDates
  1497.  
  1498.     
  1499. End Sub
  1500.  
  1501. Sub MonthScroll_Change1 (PartBar As Integer)
  1502.     MsgBox "Monthscroll Fired"
  1503.     If PartBar = 5 Or PartBar = 7 Then GoTo bypass2
  1504.     If MonthScroll.Value = 13 Then
  1505.         MonthScroll.Value = 1
  1506.         YearScroll.Value = YearScroll.Value + 1
  1507.     End If
  1508.     If MonthScroll.Value = 0 Then
  1509.         MonthScroll.Value = 12
  1510.         YearScroll.Value = YearScroll.Value - 1
  1511.     End If
  1512.  
  1513.     Calendar.Mnth.Caption = Str$(MonthScroll.Value)
  1514.     Calendar.Yr.Caption = Trim$(Str$(YearScroll.Value))
  1515.     ConvertDates
  1516. bypass2:
  1517. End Sub
  1518.  
  1519. Sub MonthScroll_Scroll ()
  1520. TextMonth.Caption = TransMonth2$((MonthScroll.Value))
  1521. End Sub
  1522.  
  1523. Sub Picture1_Click ()
  1524. Screen.MousePointer = 11
  1525. Calabout.Show Modal
  1526. Screen.MousePointer = 0
  1527. End Sub
  1528.  
  1529. Sub TextMonth_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1530. Call Form_MouseDown(Button, Shift, x, Y)
  1531. End Sub
  1532.  
  1533. Sub TextMonth_MouseMove (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1534. Call Form_MouseMove(Button, Shift, x, Y)
  1535. End Sub
  1536.  
  1537. Sub TextMonth_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1538. Call Form_MouseUp(Button, Shift, x, Y)
  1539. End Sub
  1540.  
  1541. Sub ToADay (D As Double)
  1542. Dim CurrentMonth%, CurrentYear%
  1543.     CurrentMonth = Month(D)
  1544.     CurrentYear = Year(D)
  1545.     Calendar.Yr.Caption = Trim$(Str$(CurrentYear))
  1546.     Calendar.Mnth.Caption = Str$(CurrentMonth)
  1547.     TextMonth.Caption = TransMonth2$(CurrentMonth)
  1548.     gNocalc = True
  1549.     Calendar.YearScroll.Value = Year(D)
  1550.     gNocalc = False
  1551.     Calendar.MonthScroll.Value = Month(D)
  1552.     DayToSelect = Day(D)
  1553.     Todayed = True
  1554. End Sub
  1555.  
  1556. Sub ToToday ()
  1557.     ToADay (Now)
  1558.     Todayed = True
  1559. End Sub
  1560.  
  1561. Function TransMonth$ (M As Integer)
  1562. TransMonth$ = RTrim$(Mid$("JanFebMarAprMayJunJulAugSepOctNovDec", (M - 1) * 3 + 1, 3))
  1563. End Function
  1564.  
  1565. Function TransMonth2$ (M As Integer)
  1566. If (M < 1) Then
  1567.    M = 1
  1568. Else
  1569.    If (M > 12) Then
  1570.       M = 12
  1571.    End If
  1572. End If
  1573. TransMonth2$ = RTrim$(Mid$("January  February March    April    May      June     July     August   SeptemberOctober  November December ", (M - 1) * 9 + 1, 9))
  1574.  
  1575. End Function
  1576.  
  1577. Function ValTrim (x$) As Integer
  1578. Dim S$
  1579. S$ = Trim$(x$)
  1580. ValTrim = Val(S$)
  1581. End Function
  1582.  
  1583. Sub YearScroll_Change ()
  1584.     Calendar.Yr.Caption = Trim$(Str$(YearScroll.Value))
  1585.     If Not gNocalc Then ConvertDates
  1586. End Sub
  1587.  
  1588. Sub YearScroll_Scroll ()
  1589.     Calendar.Yr.Caption = Trim(Str$(YearScroll.Value))
  1590.  
  1591. End Sub
  1592.  
  1593. Sub Yr_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1594. Call Form_MouseDown(Button, Shift, x, Y)
  1595.  
  1596. End Sub
  1597.  
  1598. Sub Yr_MouseMove (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1599. Call Form_MouseMove(Button, Shift, x, Y)
  1600. End Sub
  1601.  
  1602. Sub Yr_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1603. Call Form_MouseUp(Button, Shift, x, Y)
  1604. End Sub
  1605.  
  1606.